home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / 93win / data1.cab / Basic_Plus_Examples / KEYWDGT < prev    next >
Encoding:
Text File  |  2005-03-02  |  1.2 KB  |  30 lines
  1. 10    ! **********************************************************
  2. 20    ! Example: KEYPAD Widget
  3. 30    !
  4. 40    ! This program uses the KEYPAD widgt to generate
  5. 50    ! a keypad you can use to enter numbers.
  6. 60    !
  7. 70    ! **********************************************************
  8. 80    !
  9. 90       ASSIGN @Keypad TO WIDGET "KEYPAD";SET ("REAL NOTATION":"FIXED")
  10. 100       CONTROL @Keypad;SET ("TITLE":" Example: KEYPAD Widget")
  11. 110       CONTROL @Keypad;SET ("MINIMUM":0,"MAXIMUM":1000)
  12. 120       CONTROL @Keypad;SET ("X":100,"Y":50,"WIDTH":250,"HEIGHT":300)
  13. 130       CONTROL @Keypad;SET ("CHECK FOR DONE":1)
  14. 140       CONTROL @Keypad;SET ("SYSTEM MENU":"Quit")
  15. 150       ON EVENT @Keypad,"RETURN" GOSUB Get_number
  16. 160       ON EVENT @Keypad,"DONE" GOSUB Get_number
  17. 170       ON EVENT @Keypad,"SYSTEM MENU" GOTO Finis
  18. 180       LOOP
  19. 190           WAIT FOR EVENT
  20. 200       END LOOP
  21. 210  Get_number: STATUS @Keypad;RETURN ("MODIFIED":New_number,"VALUE":Value)
  22. 220       IF New_number THEN
  23. 230           DISP "New number: ";Value
  24. 240           CONTROL @Keypad;SET ("MODIFIED":0)
  25. 250       END IF
  26. 260       RETURN
  27. 270  Finis:!
  28. 280       ASSIGN @Keypad TO *  ! Delete KEYPAD widget
  29. 290       END
  30.